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++ 
Facility: RMS32 
Abstract: 


this module is comprised of subroutines which are used by the 
file —— logic of rms. these utilities were written to 
facilitate the processing of functions which are called many 
times or from many locations. the functions include the 
acquisition and release of resources and buffers. 


OOOOCCOCOOOCoCooO 


Author: Keith B. Thompson creation date: 9-Jul-1982 
Modified By: 
V03-036 JEJ0053 J E Johnson 30-Aug-1984 
Put in a test to bugcheck if we ever try to store an 


u 
EOF of 0/0. 


V03-035 DGB0024 Donald G. Blair 07-Mar-1984 
Allocate a fib descriptor and fib in VALIDATE_EBK_HBK 
so that we can fill in the FIBSB_AGENT_MODE field and 
pass it to the file system. 


V03-034 JwWwT0160 Jim Teague 29-F eb-1984 
Remove calls to RMSDEALLEFN. 

V03-033 SHZ0014 Stephen H. Zalewski a>, Ser, 1383 
Replace Line in lock manager call deleted by 1ja0098. 

v03-032 LJA0098 Laurie J. Anderson 20-Sep-1983 


Make sure that when a EFN is allocated that it is also 
deallocated even if it IS used. This will fix a problem 
RMS will hang a user process in a $CLOSE if Deferred 
write is set. RMS will flush the BDB's using one EFN 
and then write the file header characteristics using 
another EFN. The user ends up waiting for a EFN which 
is never used again. 


This is probably a senverary fix. The real fix will 
be done for FT2 of V38. 


v03-031 $HZ0013 Stephen H. Zalewski hae | bee 
dd a new routine that will initialize the SFSB 
IRAB instead of an IFAB. 


v03-030 $HZ0012 Stephen H. Zalewski 12-Sep-1983 
f a user attempts to open a file shared and specified UFO 
n the FOP filed of the FAB, then he must also specify the 
UPI bit in the SHR field of the FAB. 


When taking out the shared file lock, get the device name ID 


using an 


SOSCOCSCOSOSOOOOOSOOSOSCSOOOSOOOOSOSOSOVIGSOSCOOSOSCOOSOSOSOSOOOCOSOSOOOOOOOOOOOOOOOOOoOO 
SOOOSOCOSOOSOSOSOOOSOSOSOCOOSOOSSSSS'SOOSOCCSCSOSGOooooooooOOOOCOCOOOOOOOoOO 
FWD S ODNA UE WIN 9 9 OD NAME WO OD NAU EWN OO ODNAU EWN SC OONOAU SWI O00 
Be Se Se Se Ge Ge Se Se Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Sse Fe Ge Gs Fe Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Sse Se Se Ge Se Se Se Se Se Se Se Se testes 


SOOCOCSGOSOOSOSOOSOSOSOOOSOSOOOSOOOSS OOSOOSOOOOOOOOOOOOOOOOOOOO: 


SOSOCSSSSSSOSSOSOSOOCSSOSOSOSOSOSOSOOS CT OOSOSoooooooooooooo 


Environment: 
star processor running starlet exec. 
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from a new field that will uniquely identify this disk through- 
out a cluster. (This field is not ascii and is therefore 
unreadable.) 


v03-029 $HZ0011 Stephen H. Zalewski 10-Aug-1983 
Zero the pointer to the global buffer section in the IFB 
before conveys tng the lock. This is to prevent Last chance 
from attempting to unmap from the section if the process gets 
stopped while we are dequeueing the lock. 


Turn off checking of the sharing fields in the fab. 


v03-028 $HZ0010 Stephen H. Zalewski 28-Jul-1983 
Add support for cluster global buffers. 


v03-027 $HZ0009 Stephen H. Zalewski 26-Jun-1983 
Make SFSB a root lock instead of a child of the XQP Lock. 


v03-026 $HZ0008 Stephen H. Zalewski 25-Jun-1983 
Check a different set of journal flags in RMS$RLS_SFSB. 


v03-025 $HZ0007 Stephen H. Zalewski 30-Apr-1983 
erie the way register storage is done in VALIDATE_EBK_HBK 
routine. 


V03-024 $HZ0006 Stephen H. Zalewski 18-Apr-1983 
Add cluster failover support for file locking. 


v03-025 SHZ20005 Stpehen H. Zalewski 13-Apr-1983 
Do not set IFBSV_STALL_LOCK flag around calls to RMS$STALL_LOCK. 
his flag is now set and cleared in RMSSTALL_LOCK itself. 
This fixes a deadlock condition with global Buffers. 


$HZ0004 Stephen H. Zalewski 12-Apr-1983 
Make sure last accessor to a global buffer section 
zeroes out all fields in the value block for the GBSB. 


V03-021 JWHO199 Jeffrey W. Horn 22-Mar-1983 
Save the file lock if we are trying to give it up 
within a recovery unit. 


OOoSOSOSCOOSOOOOSOSOSOSOOSOOOOOSoOSoSoOO 
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v03-022 


SOOoooooooooooocososoao 


SSSSSSSssssssssssssssssssssssssssssssssssssss 


v03-016 KBT0465 Keith B. Thompson 10-Jan-1983 
Use parent lock id for file locks if using the xqp and 
request all of the lock modes to be EXEC 


FWA WIAIMIWIIIDIDINININININININID 9 2 OO | SM QDOODOOOVO0O00000000 00000000000 
=OODNAUNE AN 3 SO OD NAME WIN $9 OD NAME WN 2 OOO NOAUE WA) OO OONAUE WR" OOONOu 


Bete Se Ge Ss Se Se Ge Ge Se Ge Ge Fe Ge Ge Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Gs Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Ge Ge Sse Se Se Se Se Se Ge Se Se Sse Se Se Se Sete Sete 


tt tt ss 4 a ss a a a a as ss es a 


v03-020 KBT0498 Keith B. Thompson 21-Feb-1983 
Fix the file lock for xaqp 

v03-019 KBT0496 Keith B. Thompson 18-Feb-1983 
4 Fix init_gbsb to stall with the correct structure and 
4 put in a temporary hack to fix failover 

v03-018 KBT0492 Keith B. Thompson 9-Feb-1983 
3 Check for compatible sharing-fac options 
0 v03-017 KBT0483 Keith B; Thompson 11-Feb-1983 
: Fix kbt0450 (r9 NOT r10!) 
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Load the ifab ay stuff correctly in init_sfsb 


v03-014 tot Keith 8. Thompson 33-Dec-1982 
Change the way the shared lock name is made 


v03-013 KBT0402 Keith B. Thompson 30-Nov-1982 
Change fwaSt _shrfildey to twast _shrfilbuf 


v03-012 $HZ0003 Stephen H. obatene ki, 29-0ct-1982 19:02 
Zero the GBH_PTR ecg in the IFAB after dequeuing the lock 
on the GBSB.” This eoeanta “tase chance from attempting to 
dequeue the GBSB again. 


VO3-011 JWHO105 sotseey W. Horn 21-Sep-1982 
Fix bug in are, of HBK,EBK pair into value’ block. 


v03-010 $HZ0002 tonne en H. Zalewski, 21-Sep-1982 — 07 
Make RMSRAISE 6s LOCK and RMSLOWER_GBS_LOCK stuff t 
appropriate lock mode into RO. Remove RMS$GET_GBS Lock 
onsty point, Make RMSRLS_SFSB always look at R9 for 

FAB. Removed unnecessary block definitions. 


v03-009 KBT0324 Keith B. Thompson 10-Sep-1982 
Removed all SO ener ing ¢9 coee add rm$ris_sfsb, Fonane 
rm$get_gsb_lock to rm bsb, rm$rlS_gbs_lock to 
rm$ris_gbsb, add Bag tory ta rls_sfsb and make this 
a new . module 


v03-008 $HZ0001 Stephen H. Zalewski, 1-Sep-1982 14:44 
Add global buffer ee Be locking routines. 

v03-G07 KBT0300 Keith B. Thompson 24-Aug-1982 
Reorganize psects 

v03-006 KBT0123 Keith B. Thompson 7-Aug-1982 
Add more locking features 

v03-005 KBT0079 Keith B. Thompson 9-Jul-1982 


Add new file oe routines 


~SBTTL DECLARATIONS 


SATRDEF 3 acp attribute List 5 Abs 

SENQDEF 3 eng service Gop tatti ye 

$F ABDEF 3 fab data definiti 

SFATDEF 3; ACP aie record ht defs. 

$F IBDEF s file nformation block definitions 
SFTILDEF 3 sorat bugcheck codes. 

SF WADEF ; file work area definitions | 
SGBSBDEF 3 global buffers Syochrenszat ton block 
gir poet : ifab data definitions 

SIRBDEF : irab data definitions 


v03-015 KBT0450 Keith B. Thompson 6-Jan-1983 
| 
| 


Se 
vest Sting 1B" MCSEEBEE QQHESME YAMUSE RAGGA Renn PO, 


SLCKDEF 3 eng lock definitions 

SPSLDEF 3 access mode definitions 

SRMSDEF 3; rms error codes 

get sever 3 shared file synchronization block 


These are the FAC/SHR fields which must be compatible for 
inter-process file sharing 


NOTES: 
1) We allow one process to mutistream while another does not 
2) The NIL option is taken care of in rm$access 


0000 
0000 


SHRBITS = <FABSM_GET!FABSM_ PUT! FABSM_DEL! FABSM_UPD> 
FHCLEN = IFBSC _FHAEND~1FBSB_ RFMORG ; FHC Tength 
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-SBTTL RMSINIT_SFSB = Allocate and initialize the SFSB 


+ 
+ 


RMSINIT_SFSB 
This routine allocates the SFSB. The SFSB is allocated one per IFAB, 
and is used to contain the necessary local lock manager context for 
locking the shared file. This will be allocated even when sharing is 
only multi-stream, as the lock manager will be used in that case also. 
A protected write lock is requested on the file also. 

Calling Sequence: 
BSBW RMSINIT_SFSB 

Input Parameters: 
r10 fwa address 
r9 ifab address 
r& fab address 

Implicit Inputs: 


fwaSt_fibbuf - used to pick up file id 
fwa$q_device - used to pick up ascii device string 


Output Parameters: 
r0 status code 
Implicit Outputs: 
sfsb allocated and initialized, a PW lock made on it 
ae ae one error occurs, the $FAB stv field has the system service 
Completion Codes: 
suc, dme, eng, upi and shr 
Side Effects: 
ri-r7 destroyed 


RMSINIT_SFSB:: 


SOOCOOOSCSOSSOSOSOOSOSOSSOSOSOSOSSOOOSOSOSOSOSOOSOSOSOSOOSOOOOOOOOOOOOSOOOO 


OOOCOCOOOOOOOOSOOOOOSOSOOSSOSOSOSOSOSOOSOOOOSOSOOOSoOO 


: Check to see if we should be doing sharing in the first place 


oo DOOOoOoooo 
ASSSSSSSSooososoooooooooooooooooooeeeoooooooooSSSSooeSeSeSS 


BBS #FABSV : unless upi is also. 
RMSERR SHR 


NNSA A AA AA AAA A MMMM BS BS EE BWANA IIOP 


MEAN 2 OOD NAU EWN 9 OO NAME WIN 0 OD NAMES WWN 0 OO NOAU EWN "OOO NOULS W000 


ooooo 
> 


SB 
—S 
~Ne 
PP 
coco 
o~— 
o— 
mm 
o— 
Soooood 


BBC rt + A et a aE ; ufo can't be spec'd 
“UPI, FABSB~SHR(R8) ,10$ 


N 5 


MOVL IfBEL_SFSB_PTR(R9),.R4 ; restore SFSB address into R4 


Lock the shared file protected write. This gives a parent_id to any 
subsequent record locks. 
| 
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05 of 16 RSB 
60 8F 93 1 78 10$: BITB #<F ABSM BIO; rABSA _BRO>,- ; is this any form of block i 
16 AB 18 $59 FABSB FAC(R : if so it must be upi 
ge 1 1 0 BEQL INIT_SFSB no, so don't wory 
061708 06 €E 1 1 BBS Sim plea ; opi? then ok 
i § RMSERR UPI ; get out now 
05 ? RSB 
p 5 INIT_SFSB: 
52 11 QA § MOVZBL #<SFSBSC_BLN/4>,R2 + get block Length to allocate 
51 59, 4 OVL : allocate from same page as ifab 
FFDS : BS8W RSGETBLK : allocate it 
06 50 =«€€ 8 BLBS : branch if ok 
0 3 90 RMSERR DM Re 3; dynamic memory exhausted 
05 00 91 RSB ; return error to caller 
78 Ad sé5;1 DO 0034 35 10$: MOVL IFBSL_SFSB_PTR(RY) ; address of SFSB in IFAB 
08 Al 10 90 3 ! 37 MOVB Pst aber B10, SFSB$B_B1D(R1) 3; fill in block id 
03¢ 95; 
09 : 38 : Make a descriptor in the SFSB, pointing to RESNAM field. 
003¢ 298 ° 
OC Al DE iets 99 MOVAL SFSBST_RESNAM(R1),- ; address of RESNAM strin 
04 Al O05F 00 SF SBSL-ADDRESS(R1S 3 te descriptor address Tield 
0041 02 ; 
0041 08 ; Put RMS facility toge age ot into first longword of name. 
0041 04 ; Copy File ID from FIB in FWA to next three words of the SFSB. 
Boe} b2 ; Copy ascii device name Be FWA into SFAB after File ID. 
041 307° 
50 O1F4 CA DE 0941 08 MOVAL FWAST dear RO 3: get eddress of FIB 
OA 98 Bee 09 MOVZBW ose sBsc X_LEN : initialize Length of RESHAN string 
61 0048 10 SF SBSW CRANE “CENCR1) > to fixed Length portion 
OC Al 24534052 8F dO Bnes 1 MOVL #*A/RMSS/,SFSBSL_FAC_CODE(R1) ; set RMS facility code into name 
04 AO BO 0051 14 MOVW FIBSW FID ath Pe H 
10 Al 054 315 SFSBSO_FID_NUM(RIS > first word of FID 
06 AO B80 B26 16 MOVW FIBSW_FID SEQ CRO) - : 
12 Al 05 1 $7 S580 6 SeaCRTS > second word of FID 
08 AO B0 58 18 MOVW FIBSW_FID_RVN(RO),- 3 
14 Al 19 SFS S830. t6 SRYNCRIS : last word of FID 
0198 CA Ad 1 ADDW2 FWASQ SHRFIL_LCK(R10),- ; get fengeh of device ptring 
61 ; SFSBSQ_NAME CEN(R1) : r) descriptor len 
0198 CA 28 MOVCS FWASQ SHRFIC EKER) -; — the string to the SFSB 
019C DA 4 aFWASG_SHRFIC_LCK+4(R10).-; resnam field to name the 
16 é SFSBST~ *DEV_NAA(R1) 3; file 
° 
2 
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RMSINIT_SFSB = Allocate and in 
3 
etteetedl 16 iH : DO_ENQ: JsB. 
7A § $SENQ_S 
Bra 
7A 8 
O7A 
O7A 40 
Bea 4) 
7A ts 
a 
29 50 —s«E9 8e 45 BLBC 
0689 8F 5 Bi O09F $ CMPW 
ce ee 
50 2C Ad Hi B0A9 ‘8 20$ MOVZWL 
18 50 €9 QOAD 50 BLBC 
$33 a 
0080 36 : Check to see 
0080 54 ; disturb ebk/ 
44 55 ; ebk/hbk fiel 
$080 38 | 
0080 58 ASSUME 
0080 59 ASSUME 
0080 60 
51 40 A4 3C AG 3 sie 6 3 gg 
70 A930 AGO” 0088 é§ 25$: mMOVa 
OA AS) =—04—Ssi«90s«éOOBD 65 30$: MOVB 
30 AS =6—p0 S(00C1 66 MOVL 
0080 C9 00C4 67 
00C7 68 ;BSBB 
05 00C7 369 RSB 
00C 70 
O0c8 872 
bog i : An error occ 
00C 74; 
i ie 40$: 
50 OE0A 8F 81 age ti "CMP 
A3. 613 «©00CD 78 BEQL 
50 O9FO 8F | ocr 44 a 
00000091"¢ 16 pee Hi JSB 
ie 
FEI?" Ore | 38S $08; Bee 
3s 8069 Hn "  RSB 
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RMSSETEFN 
#*M<RO> 


~ 
wv 
z= 
=z 
nHhHonnnnnn 


$ 
SS$_SYNCH 


ALL LOCK 
W_STATUS(R4) ,RO 


if we ar 
hbk marks in ifab. 
ds in ifab. 
IFBSL_EBK EQ 
SFSBSC_EBK EQ 


e first accessor (value block is zero). 
If not zero, move values from value block to 
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; Allocate event flag 
; Set the flag 


#LCKSK_PWMODE ,= 
#PSLSC_EXEC,= 


RMSSTALLAST,- 
R9 
SF SBSL_LKSB(R4) 


SF SBSO-FILENAME(R 
#LCKSM7VALBLK !LCK 


4),- 
$M" SYNCSTS!LCKSM_SYSTEM 


Error? 

Did it complete? 

Yes, so do not stall 
Stall for the lock 
Get final status 

Did it work? 


Sete Ge Ge Ge te 


If so, do not 


<IFBSL_HBK + 4> 
<SFSBSC_HBK + 4> 


Ee sea ee check for EBK=HBK=0 


3; they were zero 


SFSBSL_HBK(R4) , IFBSL_HBK(R9) ; store eof 


#LCKSK_PWMODE ,SFSBSB 
SFSBSL-LOCK_I0(R4) ,- 


IFBSL_PAR_LOCK_ID(R9) 


CHECK_SHARE_OPTIONS 


urred on the ENG. 


#SS$_DEADLOCK .RO 
#SS$_VALNOTVALID,RO 
VAL JDATE_EBK_H@K 

8 5$ 

50$ 


ENQ,R1 
RMSMAPERR 


_CURMODE(R4); Save the current lock value 


; Save parent id for bucket locks 


; do final checking 
3; return to caller 


Check to see if we can recover from it. 


; Was it deadlock? 

3 Try it again if it was. 

3; Did Lock manager gave us old value 
; No, go map the error. 

3; Yes, validate the data. 

3; Continue if successful 

; else map error. 

; default to ENQ error for RMSMAPERK 
3 go map the error 

; and return 
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-SBTTL RMSINIT_SFSB_IRB = Allocate and initialize the SFSB using IRAB. 


zm 
wun 


te 
RMSINIT_SFSB_IRB 


This routine allocates the SFSB using an irab to stall on. This only 
occurs in connect when the original sfsb lock has been given away to 
become a system lock for a global buffer section. 

The SFSB is allocated one per IFAB, 

and is used to contain the necessary local lock manager context for 
locking the shared file. This will be allocated even when sharing is 
only multi-stream, as the lock manager will be used in that case also. 


A protected write lock is requested on the file also. 
Calling Sequence: 

BSBW RMSINIT_SFSB_IRB 
Input Parameters: 

4'y ifab address 


MMMMMMMMMMmMmMmmMmmMmmmMmrmhrnccicncry F 
>>>>r>rrrrrrrr,r??rrr,r,r,r,rr YF WD 


OOCOCOCOCOOCOCSCOSt sOOOCOOCOOCOCOoOoO “a 


E irab address 

QOEA ; 

QOEA Implicit Inputs: 

OQOEA none 

OOEA 

QOEA Output Parameters: 

OOEA 
QOEA r0 status code 

OOEA 

BeEA Implicit Outputs: 

QOEA sfsb allocated and initialized, a PW lock made on it , 
QOEA if an enq error occurs, the $FAB stv field has the system service 
OOEA code... 

Been 

OEA Completion Codes: 

QOEA ; 

QOEA suc, dme, eng, upi and shr 


Side Effects: 
ri-r? destroyed 


MSINIT_SFSB_IRB: : 


; Lock the shared file protected write. This gives a parent_id to any 
subsequent record locks. 


SBP AWIANAAAAIAIGIPPODIDINPIPOPYNININD 2 9 9 OP SF MODOC DOOOOOCOCOCOOOOOOOOOOM@OMD —Zz 
WRI OOD NA UNE VO) 9 OD NAME WIN 9 OO NAME WN 0 ODNAU EWN OOONOAUE WO 00 


oO 
So 
Mm 
> 
BEELER EEE EEE EE EEE EE EEE SEES EEE EEE EEE EEE EEE EAA 


0 
3 
OOGOO000'EF 16 444 108: JSB RMSSETEFN ; Allocate event flag 


dD 6 


RMOSHARE SHARING ROUTINES 14-SEP-1984 00:37: AX/VMS Macro v04-00 Page 10 | 
v04-000 RMSINI FSB_IRB = Allocate and initiali rates 90:35:48 RMS.SRCJRMOSHARE .MAR; 1 ° (4) 
01 BA 445 POPR #*M<RO> ; Get the flag 
rr SENQ_S LKMODE = #LCKSK_PWMODE,- 
44 ACMODE = #PSLSC_EXEC,- 
728 FN = = 
44 ASTADR = RMSSTALLAST,- 
450 ASTPRM = R9,- 
451 LKSB ss =_- SFSBSL_LKSB(R4),- 
$26 RESNAM = SFSBS$Q_FILENAME(R4) ,- 
0 433 FLAGS = #LCKSM~VALBLK!LCKSM_SYNCSTS!LCK$M_SYSTEM 
18 50 =«E9 455 BLBC RO,40$ 3: Error? 
0689 8F 33 81 $2$ CMPW RO,#SS$_SYNCH 3; Did it complete? 
0 13 45 BEQL 2 : Yes, so do not stall 
FEDF' 30 0 458 BSBW RMSSTALL_LOCK : Stall for the lock 
50 2C A4 c 0 459 20S: MOVZWL SFSB$w_STATUS(R4) ,RO : Get final status 
OA 50 Ay 0 460 BLBC R 3; Did it work? 
70 AA 3C AG «OD OO 461 25$:  MOVQ  SFSBS$L_HBK(R4),IFBSL_HBK(R10) ; Store EOF. 
OA AG 04 90 0 46¢ MOVB  $#LCKSK~PWMODE, SF SBSB~CURMODE(R4); Save the current lock value 
05 0 46 RSB ; return to caller 
0 464 
0 465 
0 466 ; 
8 roth 3; An error occurred on the ENQ. Check to see if we can recover from it. 
0 469 
0 470 40$: 
50 OEOA 8F Bi 0 471 CMPW #SS$_DEADLOCK,RO ; Was it deadlock? 
B 13 0 te6 BEQL 3; Try it again if it was. 
50 O9FO 8F B61 O 47 CMPW #SS$_VALNOTVALID,RO ; Did Lock manager gave us old value 
12 0 474 BNEQ 3; No, go map the error. 
00000001"EF 16 QO 475 JSB VALIDATE_EBK_HBK ; Yes, validate the data. 
DF 50 6©€8 «(OO 476 BLBS RO,25$ : Continue if successful 
9 1 @ 477 BRB 5 : else map error. 
0 478 45$: RMSERR ENQ,R1 : default to ENQ error for RMSMAPERR 
FEAD' 30 Q 479 50$: BSBW RMSMAPERR 3 go map the error 
05 ret] RSB 3: and return 


RMOSHARE SHARING ROUTINES 16-SEP-1984 90:32:46 AX/VMS Macro V04-00 Page 
v04-000 CHECK_SHARE_OPTIONS =SEP-1984 16:22: RMS.SRCJRMOSHARE .MAR; 1 
! 2 ? -SBTTL CHECK_SHARE_OPTIONS 
154 485 ;++ 
154 & § : 
: : Z 5 ; CHECK_SHARE_OPTIONS 
1546 489 ; This routine checks the sharing options in order to see if 
154 490; they are valid. If we are the first in then simply stuff the 
136 491 ; fields and return. 
0154 138 : 
154 493 ; Input Parameters: 
136 494; 
154 495; r4 - sfsb 
0154 £26 : r8 - fab 
0154 497; r9 - ifab 
0154 498; 
0154 499 ; Output Parameters: 
0154 500; none 
0154 501; 
0154 208 3; Routine Value: 
0154 503; 
0154 504; suc or shr 
0154 505; 
0154 506; Side Effects: 
0154 507 ; 
0154 508 ; ri destroyed 
0154 509; 
0154 510 ;-- 
0154 511 
0154 21¢ CHECK_SHARE_OPTIONS: 
0154 51 
Bi ae: ASSUME SFSBSB_SHR EQ SF SBSB_FAC+1 
34 AG «6BS O0154 218 TSTW SF SBSB_FAC(R4) ; are we the first in? 
or iz Bie aif BNEQ 10$ : No, so do checks 
0159 519 ASSUME FABS$B_SHR EQ FABSB_FAC+1 
0199 3 0 ASSUME SFSBSB_SHR EQ SFSBSB_FAC+1 
34 AG «616 AB OBO «C0159 5 § MOVW FABSB_FAC(R8) , SFSBSB_FAC(R4) 3: save the flags for the next guy 
16 «11 p13e 5 ; BRB SHREXT 3 get out 
bi80 3¢ ASSUME FABS$V_PUT EQ FABSV_SHRPUT 
16 § ASSUME FABS$V_GET EQ FABSV_SHRGET 
16 ASSUME FABSV~DEL EQ FABSV~SHRDEL 
168 3 ASSUME FABS$V_UPD EQ F ABSV_SHRUPD 
50 16 A8 35 A4 Hy 160 Q 10$: BICB3 SFSB$B_SHR(R4),FABSB_FAC(R8),RO ; is our access compatible? 
50 OF 9 166 1 BITB #SHRBITS,RO 3 are they different 
OF 12 016 § BNEQ 4 3 g yes, then error : 
50 34 A4 __ 17 AB 198 BICB3 FABS$B_SHR(R8),SFSBSB_FAC(R4),RO ; is their access compatible? 
50 F 9 171 4 BITB #SHRBITS,RO ; are any different 
4 12 0174 5 BNEQ : yes, then exit 
176 § SHREXT: RMSSUC 3 exit success! 
05 44 RSB 
17A § SHRERR: KMSERR INCOMPSHR 3; this is an error 


eel 


SHARING ROUTINES 16-SEP-1984 00:37: AX/VMS Macro V04-00 Page 1 
CHECK SHARE _OPTIONS o7 3b 382 70:35:38 RMS .SRCIJRMOSHARE .MAR; 1 < (8) 


0S O17F 249 RSB 3; return the bad news 
180 41 


RM 
vO 


a 
G 6 
RMOSHARE SHARING ROUTINES 16-SEP-1984 00:37: AX/VMS Macro V04-00 Page 13 | 
v04-000 File locking routines or SEp 19 4 93:35:98 RMS .SRCJRMOSHARE .MAR; 1 6) 
} i -SBTTL File locking routines | 
! $2 3 ++ 
1 47 ; RMSRESTORE_LOCK 
1 48 ; RMSRAISE_LOC 
1 49 ; RMSLOWER_SYSLOCK 
30 ; RMSLOWER-LOCK 

0180 26 : These routines modify the file lock mode. 

O180 22 ; Calling Sequence: 

0180 228 3 BSBW RMSRESTORE_ LOCK = Restore the lock mode 

0180 557; BSBW RMSRAISE_LOCK = Get a protected write lock on the file 

0180 558 ; BSBW RMSLOWER_SYSLOCK= Convert file lock to a system lock (held at NL) 

313) 223 ; BSBW RMSLOWER-LOCK = Get a concurrent read lock on the file 

0180 561 ; Input Parameters: 

0180 26 : 

0180 563; r9 ifab/irab address 

0180 564; 

0180 565 ; Implicit Inputs: 

0180 566; none 

0180 567; 

0180 568 ; Output Parameters: 

0180 569; 

0180 570; r0 status code 

0180 571 ; 

0180 276 >; Implicit Outputs: 

0180 573; none 

0180 574; 

0180 575 ; Completion Codes: 

0180 576; 

01380 oof : suc, eng 

0180 78 ; 

0180 579 ; Side Effects: 

0180 4 ; ‘ 

0180 81; The ifab eof information is stored in resource block (lower lock) 

0180 256 : or updated from the resource block (raise lock) 

3188 3 3 Could stall 

18 4; 

O186 386 3=- 

61 0 $ RMSRESTORE _LOCK:: ; Restore the previous lock mode | 
043E 8F BB 0180 88 PUSHR #*M<R1,R2,R3,R4,R5,R10> | 
29 01 CE 0184 8 MNEGL #1,R : Signat this is a restore 
53 0B 00 0187 590 MOVL  #LCKSM_SYNCSTS!LCKSM_CONVERT!LCK$M_VALBLK,R3 | 

26 =O ! " 4! BRB SET_LOCK 
18C 38 RMSRAISE_LOCK:: ; Get a protected write lock on the | 
QA5E 8F BB 18C 94 PUSHR #*M<R1,R2,R3,R4,R5,R10> 
9 04 00 01 2 95 MOVL  #LCKSK_ PWMODE : Stuff the lock mode in RO 
53 0B «200 019 9 MOVL #LCKSM~SYNCSTS!LCKSM_CONVERT!LCK$M_VALBLK,R3 | 
1A 11 138 4 BRB SET_LOCK 
19 39 RMSLOWER_SYSLOCK: : ; Convert lock to system lock at | 
| 


r 
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04-000 E 9033534 ae eu Ane ne mkt 


ing routines -SEP-1984 RMS .SRCJRMOSHARE .MAR; 1 


Save the current mode of the lock in case this is a conversion 
for a 1/0 stall 


0B AS OA AG 90 10$: MOVB SF SBSB_CURMODE (R4) , SF SBSB_PREMODE (R4) 


R 
k 
43 8F 8 0 PUSHR #*M<R1,R2,R3,R4,R5,R10> 
0 00 oO C MOVL  #LCKSK_NLMODE - Stuff lock mode in RO. 
53 00000048 8F 0D F MOVL #LCKSM SYNCSTS!LCKSM_CONVERT!LCK$M_VALBLK 'LCKSM_CVTSYS,R3 
A 11 BRE SET_LOCK 
RMSLOWER_LOCK:: ; Get a concurrent read lock on the 
QA 3E 8F BB PUSHR #*M<R1,R2,R3,R4,R5,R10> 
9 01 D C MOVL  #LCKSK_CRMODE,R ; Stuff the lock mode in RO 
0B OD F MOVL  § #LCKSMTSYNCSTS'LCKSM_CONVERT!LCK$M_VALBLK,R3 | 
SET_LOCK: 
SA 59 00 MOVL R9,R10 ; Move ifab into r10 for stall 
5 ASSUME <IFBSC_BID&1> €0 1 ; in case it's really irab 
5 ASSUME <IRB$C_BID&1> €E0 0 
é ASSUME IFB$B_BID EQ IRB$B_BID 
03 08 AA €E8 5 BLBS IFBSB_BID(R10),1$ ; Do we have a ifab or irab 
Sa. 6A 9 MOVL §IRBSL-IFAB_LNK(R10),R10 : Get ifab 
54 78 AA 00 C 1$: MOVL IFBSL_SFSB_PTR(R10) ,R4 3; Get sfsb 
63 13 0 BEQL Enasut 3; If the file is not shared 
: ignore the request 
Ss $0 MOVL RO,R5 : Save lock value 
06 «18 BGEQ 10$ : Branch if not restore 
55 OB A4 : MOVB SFSB$B_PREMODE(R4) ,R5 3; Restore previous mode 
B 
B 
B 
B 
B 
B 
0 
0 


:; See if we already have the lock being requested, if so exit 
; NOTE: If someone expects to get current information in the 

2 lock value block by requesting a lock of the same mode 
: will be disapointed by this. 


CMPB R5 
EN 


SF SBSB_CURMODE (R4) 
BEQL SUC 


: Store the eof info into the value block 


ASSUME IFBSL_EBK EQ <IFBSL_HBK + 4> 
ASSUME SFSBSC_EBK EQ <SFSBSC_HBK + 4> 


mova IF BSL_HBK (R10) , SF SBSL_HBK(R4) 
BEQL §§ BAD_EBKHBK 


: Do the ENQ conversion. 


SOVCVCCVOCVCVVCCVVTO OVO COCO COTTON NMAAAOMOMOAOOOOCOCWWWWIOwOWIWOIOOrrrrrrowowo 
SVGVWDOAOOOOOOAS SFOOOCOSCSOOS 
DEEPA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAOAAAOAAAASOAAA OOOO OOOO 


AIA BB EEE BWW AAAI AIR OROPOROPOROPUNONNY — 2 BOO 


ANEW 0 ODNOA UENO OD NAUE UN $ O OONAU EWN 0 ODNAU EWN OOONOAUE Win 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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v04-000 File locking routines : SE -1 984 93:33:98 LRMS. SRCIRMOSHARE MAR: 1 wr ( 


RA 
50 C A4 C 
150 €9 


7 
Fee" 30 638 ENQ: BSBW RMSSETEFN ; Allocate event flag 
1 BA 5 POPR #*M<RO> ; Get the flag 
60 SENQ_S N = ROQ,- 
KMODE = R5,- 
KSB. = _- SFSBSL_LKSB(R4),- 
FLAGS = - 
ASTADR = RMSSTALLAST,- 
ASTPRM = ROI 
36 50 = ED BLBC RO, ENQERR 3; We ok? 
0689 8F 30 2 CMPW Re WSS8. SYNCH ; Did it complete? 
3 BEQL 10$§ ; Yes, so do not stall 
08 8 PUSHR #*M<R3> ; Save ENQ flags around stall 
tg ¥ BSBW RMSSTALL_LOCK ; Stall for the lock 
8 POPR #*M<R3> 3; Restore ENQ flags 


10$: MOVZWL SFSBSW_STATUS(R4) ,RO 
BLBC NQERR 


RO,E Branch on failure 


: Store the eof info into the ifb from the value block 


PAEAQAAAAAAAAAAAAA AAO AAAS AO 
B88 08 NI NIN IN NNN SIDES ASSAD AO O-O~ 


WN OS OONAUE WN 9 OONOAU EWN O DOONAN 


ASSUME IFBSL_EBK EQ <IFBSL_HBK + 4> 


MIPIM 3 2 SS QO OMmmmmmmos 


SSSSFEeVee 
MOOLMMNO~ MY DLE OVIF OO MPP PPP PP PP PAINS MO BUPA PNMIMPININWOT SG 


POPP OPIPOPONIPIPIPOPIPOPIPIPOPONIPOPOPOPOINIPOPOPIPOPOPONIPOPOPOPOPOPIPUPUPIPOPIPOPOPD 9 2 2 3 2 


0 
0 
0 
0 
8 
0 re ASSUME SFSBSC_EBK EQ <SFSBSC_HBK + 4> 
70 AA 3C AQ 7 5 684 HBKEBK: MOVQ SFSBSL_HBK(R4) , IFBSL_HBK(R10) 
w ¥ 3 re BEQL BAD_EBRHBK1 
OA AG 55 90 O 687 ALTSUC: MOVB R5,SF SB$B_CURMODE (R4) 3; Save the current lock value 
8 688 ENQSUC: RMSSUC ; Signal success 
O43— 8F BA 689 ENQRET: POPR #*M<R1,R2,R3,R4,R5,R10> ; Restore registers 
05 8 e RSB 3; Return 
0 692 BAD_EBKHBK: 
0 69 RMSPBUG FTL$_BADEBKHBK 
694 BAD_EBKHBK1: 
8 $3? RMSPBUG F TL$_BADEBKHBK 
3 697 ENQERR: 
50 OEOA 8F_ BI 698 CMP #SS$_DEADLOCK,RO 3; Was it deadlock? 
98 613:«O0 99 BEQL Q ; Try it again if it was. 
50 O9FO BF BI 4 69 CMPW #SS$_VALNOTVALID,RO ; Did Lock manager gave us old value 
0B 12 4 7 BNEQ ; NO, go map error. 
OOOO0001"EF 16 4 re JSB VALIDATE EBK_HBK ; Yes, get correct hbk/ebk values. 
850 €E€8 024 70 BLBS RO, HBKEBR 
05 11 3 104 BRB o$ 
705 10$: RMSERR ENQ,R1 ; default to ENQ error for RMSMAPERR 
FDA4' 3 5 7 $ 208: BSBW RMSmAPERR 3; go map the error 
FFC9 1 2 4 ; BRW ENQRET 3; and return 


ee 
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-SBTTL RMSRLS_SFSB = Deallocate the SFSB 


a 
aa 


RMSRLS_SFSB 

This routine deallocates the SFSB and deques the file lock. 
Calling Sequence: 

BSBW RMSRLS_SFSB 
Input Parameters: 

r9 ifab address 
Implicit Inputs: 

none 
Output Parameters: 

none 
Implicit Outputs: 

none 
Completion Codes: 


OOD NAUE WIN 0 OONOAUE WN OC OONAULS WN O 


DOODODDOODOOCOCOCOSCSOOSSOSOOOSCOOSOOODOOOOOOCOOOOOOOOOOOOOCOOOOOOOOOO 
ANN NSANININNINNINAINNNNNNNNNNNNNNINININNNNSS 
PEELE FWWWWWIWIWIIIinononononononononnnd | 3 3 3 SS 


DDE DPEPPPPEDPPP PPP PDD PPV PPV PVPS 
POODOOANA A i i FF 8 ee ee ee rn 8 re ee en 


none 
Side Effects: 
4 none 
5 
oh a 
748 RMSRLS_SFSB:: 
12 6B 4 PUSHR #*M<R1,R4> 3 Save work registers 
54 78 A9 00 751 MOVL {500.27 58 _PTRCRP) «BA 3 get address of sfsb 
mum 738 BEQL 0$ 3 exit if none 
4; 
736 : Store the eof info into the value block 
7 ° 
£38 ASSUME IFBSL_EBK EQ <IFBSL_HBK + 4> 
£28 ASSUME SFSBSC_EBK EQ <SFSBSC_HBK + 4> 
3C AG 70 Ao ss 7D Tee MOV IFBSL_HBK(R9) ,SFSBSL_HBK(R4) 
763 ; 
Pee 3; If a recovery-unit is active on this file then save the file lock 
766° 


K 6 
RMOSHARE SHARING ROUTINES $ =) 4 AX/VMS Macro v04-00 P 17 ” 
04-000 RMSRLS.SFSB - Deallocate the SFSB ete A See a ty mente.“ 
08 OOA2 C9 67 BBC #IFBSV_RUP, IFBSB_JNLFLG2(R9),10$; branch if no RU in prog 
i 8 BSBW RMSLOW Over et LOCk ; lower the lock to correct mode 
itt f BSBW RMSSA 3 go save the file lock 
0 BRB 208 
i 
th 73 : Deq the lock 
Oo ES bcs es 
7A £76 10$: $DEQ_S hy = SFSBSL_LOCK_ID(R4),- 
7A 7 ALBLK = SFSBSL_ _LVB¢ (R4) 
g FS 
9 780 Deallocate the sfsb 
3 fe: 
yey 9 7 3 208: BSBW RMSRETBLK1 ; address in r4 
78 A +5 4 : CLRL IFBSL_SFSB_PTR(RI) ; clear the ifab pointer to it 
12 et 8F reg 308: POPR #*M<R1,R4> 3; restore registers 
= 3 33 4 tA RSB 3; return to caller 
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16- 18 
Llocate and init the GBS g- SEF 18 4 RMS ..SRCJRMOSHARE .MAR; 1 (8) Ta 
-SBTTL RMSINIT_GBSB - Allocate and init the GBSB 


Pao) 


a 
aa 


; RMSINIT_GBSB 
This routine allocates the GBSB. The GBSB is allocated une per IFAB, 
and is used to contain the gy local lock manager context for 
locking a global section used for global buffers. 
An exclusive lock is requested on the global section. 

Calling Sequence: 
BSBW RMSINIT_GBSB 

Input Parameters: 


r10 ifab address 
r irab address 


COOOCOCOCOCCOCOCOOOOCOOOCOO 


SGOOCGCOOGCOOCOCOCOOWOOOOOOOO 


PIAA 9 ONAN WIN  S OD NAUE WIN OOD NOU WWI OOD NOAU EWN OOONAUE WI" 


ODOOOOOOOOOOOOOOOOOOOOO 


Implicit Inputs: 

none 
Output Parameters: 

r0 status code 
Implicit Outputs: 


POPIPIPIPOPOPINIPIPINININIPIPIPIPIPIPIPOPIPIPIPOPOPIPUPIPIPPONNPD 


bsb allocated and initialized, an EX lock made on it 
a enq error occurs, the $FAB stv field has the system service 
code... 
Completion Codes: 
suc, dme, eng 
Side Effects: 


None... 


Sete Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Se Ge Ge Ge Se Se Ge Se Se Se Ge Se Sse Se Se Se tee 


RMSINIT_GBSB: : 
PUSHR 


#*M<R1,R2,R3,R4,R5,R6,R7> save work registers 


OOFE 8F : 
52 44 BF oa MOVZBL &G SB$C_BLN,R2 : get block Length to allocate 
51 5A MOVL R10,R ; allocate from same page as ifab 
£06 ° BSBW RMSGETSPC : allocate it 
08 50 BLBS RO,1 : branch if ok 
RMSERR 3; dynamic memory exhausted 
0078 =«31 BRW 5 return error to caller 
7C AA 51 00 1$: OVL R1, 1FBSL_GBSB_PTR(R10) ; address of GBSB in IFAB 


" Ps 
ASSUME GBSBSB BN EQ GBSBSB_BID+1 
MOVW #GBSBSC_BID+<GBSB$C_BLN@6>,- 
GBSB$B_B10(R1) : fill im block Length and id 


BEERS FE PWWAAAWA AUR) 


Stee 


PROPIIPOPIPORIMPYIAIMNIPINININININPINININININININY 

FPP OOOOOOOOOOOOOOOOOOOOOOOOOOOO 

DWI FB APRIMIPMINPPININININIPIPININIPDNININIPIDNIPINPYPINPAIPIPININIPOPIPIPIPIPIPOPIPIPIPOPPINIPIPD 
000000000 60 60 Gd Gd Cd C9 09 09 09 Gd Od Cd 09 C9 CD C9 G9 Od Cd OD C9 CD CD OD OD OD CD 0D OD OD OD OD OD 09 GD 0D 09 09 CD 0909 09 SI INI IS 


SOOOOOSOOOOOCOCOOCOOCOOCOOOOOOOOOCOOOCOOOOOCOOoOO 


1109 8F BO 
08 Al 


} 
ee 
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3; Make a Cover tprer of the first two poogeeres in GBSB, pointing to RESNAM 
i field. Fill RESNAM with copy of RESNAM from SFSB. 
C Al ODE MOVAL GBSBST_RESNAM(R1),- ; Move address of RESNAM to descript 
4 Al GBSBSL-ADDRESS(R15 
52 BAA D MOVL IFBSL_SFSB_PTR(R10) ,R2 ; Move SFSB address to R2. 
62 8B MOVW SF SB$Q_NAME_LEN(R2) ,- ; Move Length of RESNAM into desc. 
6 GBSBSW_NAME_LEN(R1) 
61 28 MOVC3) GBSBSW_NAME LEN(R1),- 
oc AG SF S8$T_RESNAM(R2) ,- ; Move the SFSB RESNAM to the GBSB 
OC A GBSBST_RESNAM(R1) : 


resnam field to name the lock. 
restore GBSB address into R4 
Make sure we have a parent Lock. 


Yes, continue 
No parent, boom.... 


54 7C AA 00 
00000000°GF 05 
07 


MOVL  §IFBS$L_GBSB_PTR(R10) ,R4 
ISTL —_GPEXESGL_SYSID_LOCK 
BNE $ 

RMSPBUG F TL$_NOPARENT 


5$: JSB RMSSETEFN Allocate event flag 
POPR #*M<RO> ; Get the flag 
SENQ_S LKMODE 


QOOO0000"EF 16 
01 BA 


= #LCKSK_EXMODE ,- 
ACMODE = #PSLSC~EXEC,~ 

EFN = RO,- 

ASTADR = RM$STALLAST,- 

ASTPRM = R9,- 

PARID = G*EXESGL_SYSID_LOCK,- 
LKSB = GBSBSL_LRSB(R4J,- 
RESNAM = GBSB$Q~FILENAME(R4) 
FLAGS = 


#LCKSM~VALBLK !LCKSM_SYNCSTS!LCKSM_SYSTEM 


WAPOIPOPOPIPINIPININININIPINPIPINPIPIPIPIPININININIPIPININIAININININININPD 


OQOMMMMMMMMMMOCOVVTVTVVMOOOMOOCOOCWWWWIOIeOoawoe 1 


7 
5 
0 
1 
g 
4 
5 
; 
5 
0 
1 
5 
4 
5 
6 
. 
i ; Lock the global section for exclusive access. 
1 
5 
4 
5 
6 
7 
8 
9 
0 
1 
5 
4 
5 
; 
8 
9 
; 


10 50 =€9 BLBC RO,40$ 3: Error? 
0689 8F 50 861 CMPW RO,#SS$_SYNCH ; Did it complete? 
03. «13 1 BEQL : YES, do not stall 
FCEB' 30 ne BSBW RMSSTALL_LOCK : Stall for the lock 
50 C A4 4 1 MOVZWL GBSBSW_STATUS(R4) ,RO ; Get final status 
Cc 50 3 19 BLBC R 3; Did it work? 
OA AG O05 0 1 208: MOVB #LEKSK_EXMODE ,GBSBSB_CURMODE(R4); Save the current lock value 
5 RMSSUC : indicate success 
OOFE 8F BA 93 25$: POPR #*M<R1,R2,R3,R4,R5,R6,R7> 3; restore registers 
5 iy RSB 3 return to caller 
96; 
$3 3 An error occurred on the ENQ. See if we can recover from it. 
9 o 
’ 0$: 
50 OE0A 8F } CMPW §5S8_DEADLOCK RO ; Was it deadlock? 
AB 3 dD 69 § BEQ 5 : Try it again if it was. 
50 O9FO BF Bi F 9 CMPW #SS$_VALNOTVALID,RO ; Did Lock manager gave us old value 
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: Yes, Freee as alternate success 

: default to ENQ error for RMSMAPERR 
3 go map the error 

3; and return 


RI 
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Sete Ge Se Ge Ge Ge Ge Se Se Se Be Se Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Se Be Ge Ge Ge Ge Se Ge Ge Se Ge 


OO8 NIA UE WN SO OOONAU EWN OC OOO NAME WN OOO NAUES WO 


—o 


-—o 
PAOLO AUIS BBB BBE EE BWW NWIWIPIPONONOPOPONONN NO 2 SS Se 


—voonm 


108: MOVL 


WODODODOOOODOOODODODOOOOOODODOODOOOOODOODOOODOODODOOODOOODOOOOOOO000000000 
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RMSRAISE_GBS_LOCK 
RMSLOWER-GBS_LOCK 
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These routines modify the lock mode on a global buffer section. 


Calling Sequence: 


BSBW RMSRAISE_GBS_LOCK 
BSBW RMSLOWER—GBS_LOCK 


Input Parameters: 

r9 ifab/irab address 
Implicit Inputs: 

none 


Output Parameters: 

r0 status code 
Implicit Outputs: 

none 


Completion Codes: 
suc, eng 

Side Effects: 
Could stall 


RMSRAISE_GRS_LOCK: 
ROVL™ ALCKSK EXMODE ,RO 
BRB TAKE_GBS_LOCK 


RMSLOWER og LOCK: : 
Rov #LCKSK -NLMODE ,RO 


TAKE_GBS_LOCK: 
PUSHR #*R<R1,R2,R3,R4,R5,R10> 
MOV R 


- Get an exclusive lock on the section 
= Get a concurrent read lock on the section 


Convert GBS lock to EX. 
Place lock mode in RO. 


Convert GBS lock to NL. 
Place lock mode in RO. 


Save lock value 
Move ifab eee r10 for stall 
in case it's really irab 


; Do we have a ifab or irab 
; Get Lhe 

; Get pe 

; If there is no global buffer secti 


then ignore the request 


—— ee ——__—__— —— 
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F 967 ; 
: ae9 ; See if we already have the lock being requested, if so exit 
t 0° 
OA AG 7. 5 7 CMPB R5 ,GBSB$B_CURMODE (R4) 
rH 3 6 ore BEQL =“ . 
83 9h 
é ie ; Convert the lock on the global buffer section 
65 977 * 
FC98" 30 rt 443 208: BSBW BaSsETern ; Allocate event flag. 
01 BA 6 97 POPR #*M<RO> 3; Get the flag. 
6A 980 SENQ_S EFN = R0,- 
036A 981 KMODE = R5,- 
036A 98¢ LKSB_ = _ GBSBSL_LKSB(R4) ,- 
036A 98 FLAGS = #LCKSM_SYNCSTS!LCKSM_SYSTEM!LCKSM_CONVERT!LCKSM_VALBLK,- 
8 6A 984 ASTADR = RMSSTALCLAST,- 
Hn 985 ASTPRM = RO 
038A o89 
1D 50 €9 Q38A 98 BLBC RO,70$ ; We ok? 
0689 8F 50 861 QO38D 988 CMPW RO,#SS$_SYNCH ; Did it complete? 
03 13 0392 989 BEQL ; YES, so do not stall 
FC69" 30 0394 990 es BSBW = RMSSTALL_LOCK : Stall for the lock 
50 2C AS 3C 0397 236 MOVZWL GBSBSW_STATUS(R4) ,RO ; Get the final status 
0C 50 E—9 0398 99 BLBC .70$ ; Branch on failure 
OA AS «55 90 039 994 40$: MOVB R5,GBSB$B_CURMODE (R4) : Save the current lock value 
Q3A 995 50$: RMSSUC ; Signal success 
O43E 8F BA Q3A 996 60S: POPR #*M<R1,R2,R3,R4,R5,R10> ; Restore registers 
05 OQ3A9 997 RSB ; Return 
O3AA 8998 
SAA 999 
us 1000 70$: > 
50 OEOA 8F Bi AA 1001 CMPW = #SS$_DEADLOCK RO ; Was it deadlock? 
B4 13 O3AF 1006 BEQL :; Try it again if it was. 
50 O9FO 8F 61 0381 100 CMPW #SS$_VALNOTVALID,RO 3; Did Lock manager gave us old value 
E6 13 0386 1004 BEQL 40$ : Yes, treat as alternate success 
0388 1005 RMSERR ENQ,R1 ; Default to ENQ error for RMSMAPERR 
FC40" 30 QO58D 1006 BSBW RMSMAPERR ; Go map the error 
) = Bat3 st BRB 60$ : and return 


ae 
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: ! 19 -SBTTL RMSRLS_GBSB = Deallocate the GBSB and dequeue the lock on it 
C 1 § p++ 
C 1015 ; 
: | i ; RMSRLS_GBSB 
+ ee 1 : This routine deallocated the GBSB and then dequeues the lock it had on 
C2 1017; the global buffer section. The dequeue also writes out the lock value 
: 1918 ; block to the Lock manager. 
: i ; Calling Sequence: 
Co 1002 : BSBW = RMSRLS_GBSB 
03C2 10 : 3 
03C2 1024 ; Input Parameters: 
O35 1050 : 9 irab/ifab add 
: r ra ab address 
03C2 1027 ; 
te 1028 ; Implicit Inputs: 
03C2 1029 ; none 
03C2 1030 ; 
03C2 1031 ; Output Parameters: 
03C 1936 ; 
03C2 1033; r0 status code 
03C ee 3 
O3C2 1035 ; Implicit Outputs: 
Bee 1936 3 none 
3C2 1037 ; 
03C2 1038 ; Completion Codes: 
03C2 1039 ; 
03C2 1040 ; suc, deq 
bgt 1041 ; 
3¢ 1966 3; Side Effects: 
03C2 1043 ; 
bat 1044 ; none 
C2 1045 ; 
03C2 1046 ;-- 
03C2 1047 
3¢ 1048 RMSRLS_GBSB:: 
0412 8F BB s 1049 PUSHR #*M<R1,R4,R10> 
SA 59 00 O38 1929 MOVL R9,R10 ; Move ifab into r10 
03C9 1928 ASSUME <IFBSC_BID&1> EQ 1 ; in case it's really irab 
bat9 105 ASSUME <IRBSC_BID&1> €E0 0 
° : 20 ASSUME IF B$B8_BID EQ IRB$B_BID 
03 08 AA co 1 2$ BLBS IFBSB_BID(R10) ,10$ ; Do we have a ifab or irab 
SA. 6A OD CD 105 MOVL §IRBSLTIFAB_LNK(R10).R10 ; Get ifab 
54° 70 AA OD DO 1 38 10$:  MOVL {FBSL_GBSB_PTR(R10) .R4 : Get 
19 #1 D4 105 BEQL 0o$ : : Skip if n 
0088 CA 4 D6 1060 20S: CLRL IFBSL_GBH_PTARCR10) : Indicate. that gietat section is go 
DA 1061 $DEQ_S ce ="GBSBSL -LOCK_ID{R4),- ; Dequeue the loc 
DA 1 66 ALBLK = GBSBSL-LKSBT8(R4) : writing out ity Lock value block. 
7C AA Bs E9 106 CLRL Yrest GBSB_PTR(RTO) : Indicate that GBSB is ie 
FC11" 30 EC 1064 BSBW RMSRETBLK1~ t Deallocate the GBSB, address in R4 
0412 8F A EF 1392 30$: POPR #*A<R1, a R10> 
5 F3 1066 RSB ; Return to caller. 
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SRLS_GBSB = Deallocate the GBSB and de 
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v04-000 VALIDATE _EBK_HBK mie) Pi 90:35:98 FRMS. SRCIRMOSHARE -MAR: 1 ~~ (fa) 
F4 1069 .SBTT A AT H 
re ? ye SBTTL VALIDATE_EBK_HBK 
F4 , > VALIDATE_EBK_HBK 
F4 1074 : This routine reads the record attributes for a file from the disk to see 
F4 1075; the value block or the disk contains the most up to date information 
F4 4 6 ; and move the Latest information into the SFSB for use in the value bloc 
0 fe ! 4 3; and ifab. 
a } 8 : Input Parameters: 
0 F4 ° : r9 = irab/ifab address 
Q3F4 10 : : Output Parameters: 
gut TBE Lone 
O3F4 1086 : Routine Value: 
O34 43 : Any valid RMS or SYSTEM error code. 
03F4 1090 ; Side Effects: 
O3F4 1091 ; 
O3F4 1936 : none 
O3F4 1093; 
O3re 1098 
Bane 1938 SNEWPSECT RMSRMSMISC 
0000000C 0000 1098 ATR_LIST_LEN = 12 
6A 0000 1099 BUF[LEN:-BYTE ATR_LIST_LEN+FHCLEN+8+F IBSC_LENGTH 
0001 1104 
0001 1136 : Note that the buffer allocated in this routine contains the following 
0001 1103 ; structures, all of which are used as parameters to the file system. 
0001 1104 ; 1. attribute list (last longword in List is a zero-longword) 
0001 1105 ; . record attributes buffer 
0001 1106 ; - fib descriptor (8 bytes) 
0001 1107 ; . fib 
0001 1109 
0001 1110 VALIDATE_EBK_HBK: 
043€ 8F 8B 0001 113) PUSHR = #*M<R1,R2,R3,R4,R5,R10> 
$008 143 ASSUME SFSBS$L_EBK EQ <SFSB$L_HBK + 4> 
BOR 1114 ASSUME FATSL_EFBLK EQ <FATSL_RIBLK + 4> 
0 1115 ASSUME <iFBSC_BID&1> €0 1 
One 1118 ASSUME <IRBS$C_BID&1> €EQ 0 
2 My ASSUME IFB$B8_BID EQ IRB$B_BID 
1 59 8 005 149 MOVL R9,R10 : Move ifab into r10 for stall 
03 08 AA E8 0008 1120 BLBS IF B$B_BID(R10),1$ : Do we have a ifab or irab 
A 6A p? it 1121 MOVL IRBSL_IFAB_LNK(R10) ,R10 ; Get ifa 
52 AF A , oo ¢ 1$ MOVZBL BUF _LEN,R ; re = Length of buffer to alloc 
000000 "ff 1g O13 11 JSB RSGETSPC : Get the space (returned in R1) 
08 50 ~=CCE 1 1124 BLBS RO,10$ ; Error? 
001C 1125 RMSERR DME,R1 ; Yes, map it and return. 
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RO, 50$ 
RM$STALL_LOCK 


#ATR_LIST_LEN.R 
#16, PFATSL-HIBLK(R4) ,FATSL_HIBLK 
#16, FATSL-EFBLK(R4) .FATSL-EFBLK 
IFBSL_SFSB_PTR(R10 

FATSL_EFBLR(R4) 


FATSL 
#aTR_CIS 


BUF _CEN,R 
RMSRETSPC1 


#*M<R1,R2,R3,R4,K5,R10> 
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4 
4 
R10)-R : 

, SF SB$L_EBK(R3) 
FATSL_HIBLK(R4) ,SFSBSL_HBK (R3) 


HIBLK(R4) | SF SBSL_HBK (R3) 


Sete Se Ge Se Ge Se Ge Se Bee 


1) 


First longword of attrib List 
ge longword points to buffer. 
r5 = fib desc address 

fill in Length field of desc 

fill in address of fib 

move agent mode into fib 


Save address of allocated space. 
Get event flag. 
Put it in RO. as 
Go read the header attributes 
from disk. 
io function code 
© status block 
ast address 
ast parameter 
fib descriptor address 
attribute list address 
Did qio succeed? 
Yes, stall for io to complete. 
Return if unsuccessful. 
Get address of buffer. 
) ; Rotate HBK. 
) ; Rotate EBK. 
Put SFSB address in R3. 


; Is disk EOF mark higher? 

; Yes, use disk info. 

; Is disk HBK mark higher? 

; No, use value block values. 
; Move disk ebk/hbk to sfsb. 


Prepare to give back space. 
Length of apes to deallocate 
Address in R4 

Restore registers. 

Return. 
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$$.PSECT 
SSARGS 
EXESGL_SYSID 
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RMSLOWER_LOCK 44 Bs RG 1 
RMSLOWER SYSLOCK 198 RG 1 
RMSMAPERR eee eee 1 
RMSRAISE_GBS_LOCK 0000340 RG 1 
RMSRAISE LOC ; ist RG 1 
RRERE STORE LOCK 180 RG 1 
RMSR RRRREEEE 1 
RMSRETSPC1 eeeeeeee § YX 3 
RMSRLS_GBSB BO 8 Oe RG 1 
RMSRLS_SFSB 00 F RG 1 
RMSSAVE_FL eteeeere =X 1 
RMSSETEFN eeeeeere = §= 6X 1 
RMSSTALLAST eeeeeeee 8 6X 1 
RMSSTALL_LOCK eeeeeree =X 8 01 
RMS$_DME = 00018404 
RMS$_ENQ = 0001C134 
RMS$_INCOMPSHR = 0001826A 
RMS$_SHR = 4 9 aoe 
RMS$_UPI = 000187A 
SET COCK 000001B2 R 01 
SFS6$8_B1D = 0000000 
SF SB$B_CURMODE = 44-6454 74 
SF SBS$B_FAC = 00000034 
SF SB$B_PREMODE = 44 i494 
SF SB$B_SHR = 000000 
SFSBSC_BID = 00000010 
SF SBSC_BLN = 00000044 
SFSBSC_FIX_LEN = 44 64 4 
SF SBSL_ADDRESS = 00000004 
$L_EBK = 00000040 
SF SBSL_FAC_CODE = sit 
SBSL_HBK = 0000003C 
SF SBSL_LKSB = 44444 3 
SF SBSL-LOCK_ID = 00000030 
S8SL_LVB = set 
FSBSQ_F ILENAME = 00000000 
SFSBST_DEV_NAM = 00000016 
SF SBST_RESRAM = sia 4 
$W_FID_NUM = 83 00010 
F SBS$W_F ID-RVN = 00000014 
SF SBSW_FID_SEQ 5 493 
SW_NAME _LEN = 000000 
SF SBSW-STATOS = 0000002C 
SHRBITS = O08 F 
SHRERR A 01 
SHREXT 0000176 R 01 
$S$_DEADLOCK = Q0000E0A 
~VALNO = 8000090 
SS$_VALNOTVALID = FO 
SYSSDEQ ereeerer GX o 
SYSSENQ eeereeee GX 1 
TARE GBS_LOCK 90000868 R°. Ot 
L 
VAL IBATE~EBK_HBK $000 001 R 63 
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Psect synopsis 
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! Psect synopsis ! 


¢ewmeerroaceee esaaoaae } 


PSECT name Allocation PSECT No. Attributes 

- ABS. a9008r« x oF 00 ( 0.) NOPIC USR CON’ ABS 

RMSRMSO 000 ( 1012.) 7S lew PIC USR CON REL GBL NOSHR EXE 

SABSS 000 ( ) ¢ ( ¢°} NOPIC USR CON ABS LCL NOSHR’~ EXE 

RMSRMSMISC b008008 ( 183.) ( of PIC USR CON REL GBL NOSHR’- EXE 
ren 
! ;_Per formance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 0 00:00 .08 0:00: 8 +7] 

ae Sere 389 B00;o487 0; 010 0776 

Symbol table sort 198 0: 0:63:55 00: 0:06.54 

Symbol table output 20 0: $300.19 00:00:00:56 

Psect synopsis output 0:00:00.03 00:00:00.1 

Cross-reference output 0 Sa tt Bo +89 290-02 

Assembler run totals 931 0:00:33.8 00:01:33.36 


The working set — was 1950 pages. 

134597 bytes (2635 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space allocated to hold 2407 non-local and 45 local symbols. 
1163 source Lines were read in Pass 1, "eee" 19 object records in Pass 2. 

40 pages of virtual memory were used to define 39 macros. 
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Macro Library name 


_$255$DUA B:t5 a ny ny ¥ MLB; 1 15 
“$255$DUA MLB; 1 1 
“$255$DUA28 :ESYSLIBISTARLET. MLB: 2 19 
TOTALS (all libraries) 35 


2620 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMOSHARE/OBJ=OBJ$:RMOSHARE MSRC$:RMOSHARE /UPDATE=(ENHS$: RMOSHARE ) +EXECML$/LIB+LIBS$:RMS/LIB 
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SEP=1 6:22:3 RMS .SRCJRMOSHARE .MAR; 1 


re i, 


LCL ans pe NOE XE = NOWRT NOVEC BYTE 


NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


RM 
vo 
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